-- card: 9386 from stack: in.1
-- bmap block id: 0
-- flags: 4000
-- background id: 3837
-- name: NewFileName
----- HyperTalk script -----
on closecard
  hide message window
end closecard


-- part 1 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=224 top=243 right=293 bottom=283
-- title width / last selected line: 0
-- icon id / first selected line: 27056 / 27056
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Try it
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then exit mouseup
  put NewFileName("Your File Name","Isn't this great?!")
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=82 top=302 right=324 bottom=182
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Install
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  put installres(XFCN,NewFileName) into it
  if it is empty then play oops
  else answer it
end mouseUp



-- part contents for background part 5
----- text -----
NewFileName

-- part contents for background part 10
----- text -----
2

-- part contents for background part 6
----- text -----

This will allow you to use a Standard File Package 'Save' dialog box in your hypertalk scripts








Thanks to:
Andrew Gilmartin
Brown University

-- part contents for background part 7
----- text -----
Syntax:

put NewFileName( <prompt>, 
<initial filename> ) into SaveFileName

<prompt>, should be a simple descriptive statement about the request, such as,  "Save document as?," or  "Save test result to:."

<initial filename>.  The first time NewFileName is called this should be  empty (“”) as the user is saving an untitled document.  Thereafter, it should contain the name of the document as previously given by the user.